SuperHack/SuperHack CD.bin/SCRIPTZ/LEECH2.ZIP/LEECH.EXE/ALIAZES.INI

INI File | 1997-01-11 | 12KB | 171 lines

[Aliases]
n0=d_gon { if ($readini %gamefile game type != off) { return 1 } | halt }
n1=d_gc { set %addy ! $+ $remove($address,~) | set %site $mask(%addy,3) | unset %addy | return 1 }
n2=d_ig { set %addy ! $+ $remove($address,~) | set %site $mask(%addy,3) | unset %addy | if ($readini %gamefile sites %site != $null) { return 1 } | else { Notice $nick Sorry, your not in this round... | halt } }
n3=d_is { if ($nick = $readini %gamefile pr $+ %turn nick) { unset %site | return 1 } | else { notice $nick Wait for your turn... | unset %site | halt } }
n4=d_isbj { if ($readini %gamefile game type = Blackjack) { return 1 } | else { halt } }
n5=/bj5 { msg $readini %gamefile game channel $readini %gamefile pr $+ %turn nick You have 5 Cards and are ranked at $readini %gamefile pr $+ %turn total | writeini %gamefile pr $+ %turn total fivecard | nextplayer }
n6=/hitme {
n7=  %cpos = $readini %gamefile deck cpos | inc %cpos 1 | writeini %gamefile deck cpos %cpos | %cleft = $readini %gamefile deck cleft | dec %cleft 1 | writeini %gamefile deck cleft %cleft | %pick = $asc($mid(%cpos,1,%deck)) - 38 | getface %pick | %hand = $readini %gamefile pr $+ %turn vhand | %hand = %hand %pick | %rank = $readini %gamefile pr $+ %turn nhand | %rank = %rank %pickr $+ x
n8=  rank %rank
n9=  writeini %gamefile pr $+ %turn total %value
n10=  writeini %gamefile pr $+ %turn vhand %hand
n11=  writeini %gamefile pr $+ %turn nhand %rank
n12=  msg $readini %gamefile game channel $readini %gamefile pr $+ %turn nick ╗ hand is $readini %gamefile pr $+ %turn vhand ranked at $readini %gamefile pr $+ %turn total
n13=  if ($readini %gamefile pr $+ %turn total > 21) {
n14=    if (%turn = 1) { goto dealer }
n15=    msg $readini %gamefile game channel $readini %gamefile pr $+ %turn nick, you have busted! | writeini %gamefile pr $+ %turn total Busted | goto nextplayer
n16=  }
n17=  if ($readini %gamefile pr $+ %turn total = 21) {
n18=    if (%turn = 1) { goto dealer }
n19=    msg $readini %gamefile game channel $readini %gamefile pr $+ %turn nick, you have 21
n20=    if (%noc >= 5) { bj5 }  | goto nextplayer
n21=  }
n22=  if ($readini %gamefile pr $+ %turn total <= 20) {
n23=    if (%turn = 1) { goto fbj }
n24=    if (%noc >= 5) { bj5 | goto nextplayer }
n25=    msg $readini %gamefile game channel $readini %gamefile pr $+ %turn nick ╗ hitme or stand?
n26=  }
n27=  :end | unset %rank %pick* %suit %hand %cleft %i %cpos %card* %value %noc %nop | halt
n28=  :nextplayer | unset %rank %pick* %suit %hand %cleft %i %cpos %card* %value %noc %nop | nextplayer
n29=  :dealer | unset %rank %pick* %suit %hand %cleft %i %cpos %card* %value %noc %nop | d_credit
n30=  :fbj | unset %rank %pick* %suit %hand %cleft %i %cpos %card* %value %noc %nop | fbj
n31=}
n32=/nextplayer { :next | inc %turn 1 | if (%turn > $readini %gamefile game nop) { fbj } | if ($readini %gamefile pr $+ %turn blackjack != $null) { msg $readini %gamefile game channel $readini %gamefile pr $+ %turn nick, I am skipping you, you have Blackjack | goto next } | msg $readini %gamefile game channel $readini %gamefile pr $+ %turn nick your options are hitme, stand, myhand, dealer | halt }
n33=/takebets { writeini %gamefile game players $me | writeini %gamefile game nop 1 | writeini %gamefile pr1 nick Dealer | writeini %gamefile game type BlackJack | writeini %gamefile game channel $chan | notice $chan Blackjack table has just opened, type !join to play | .timer2000 1 30 /set %nojoin 0 | .timer2002 1 30 dbj | .timer2001 1 15 notice $chan You have 15 seconds to !join }
n34=/shuffle {
n35=  %ti = $ctime | %deck = $readini %gamefile deck deck | writeini %gamefile deck cpos 0 | writeini %gamefile deck cleft 52 | %ctr = 0 | %tc = $chr(128)
n36=  :swap | %c1 = $chr($r(39,90)) | %c2 = $chr($r(39,90)) | if (%c1 = %c2) { goto swap } | inc %ctr 1 | %deck = $replace(%deck,%c1,%tc) | %deck = $replace(%deck,%c2,%c1) | %deck = $replace(%deck,%tc,%c2) | if (%ctr < 30) { goto swap } | writeini %gamefile deck deck %deck | %to = $ctime - %ti
n37=  if (%to <= 0) { echo 4 # *** Deck shuffled... took less than a second } | else { echo 4 # *** Deck shuffled... took %to seconds }
n38=  unset %ctr %c1 %c2 %tc %deck %ti %to
n39=  return 1
n40=}
n41=getface { if (%pick <= 13)  { %suit = H } | if ((%pick > 13) && (%pick < 27)) { %suit = D | dec %pick 13  } | if ((%pick > 26) && (%pick < 40)) { %suit = C | dec %pick 26 } | if ((%pick > 39) && (%pick <= 52)) { %suit = S | dec %pick 39 } | if (%pick = 1) { %pick = A | %pickr = 11 } | if (%pick = 11) { %pick = J | %pickr = 10 } | if (%pick = 12) { %pick = Q | %pickr = 10 } | if (%pick = 13) { %pick = K | %pickr = 10 } | if (%pickr = $null) { %pickr = %pick } | set %pick [ %pick $+ [ %suit ] ] | return 1 }
n42=rank  {
n43=  %noc = $gettok(%rank,0,32)
n44=  %c1 = $remove($1,x) | %c2 = $remove($2,x) | %c3 = $remove($3,x)
n45=  %c4 = $remove($4,x) | %c5 = $remove($5,x) | %c6 = $remove($6,x)
n46=  %cards = 0 | goto %noc
n47=  :1 | %value = %c1 | goto end
n48=  :2 | %value = %c1 + %c2 | goto end
n49=  :3 | %value = %c1 + %c2 | %value = %value + %c3 | goto end
n50=  :4 | %value = %c1 + %c2 | %value = %value + %c3 | %value = %value + %c4 | goto end
n51=  :5 | %value = %c1 + %c2 | %value = %value + %c3 | %value = %value + %c4 | %value = %value + %c5 | goto end
n52=  :6 | %value = %c1 + %c2 | %value = %value + %c3 | %value = %value + %c4 | %value = [ %value + %c5 ] | %value = %value + %c6
n53=  :end
n54=  if (%value > 21) {
n55=    inc %cards 1 | if (%cards > %noc) { goto endit }
n56=    if (%c [ $+ [ %cards ] ] = 11) { set %c $+ %cards 1 } | goto %noc
n57=  }
n58=  :endit | unset %c1 %c2 %c3 %c4 %c5 %c6 | return %value
n59=}
n60=fbj { %turn = 1 | if ($readini %gamefile pr $+ %turn total >= 17) { d_credit } | if ($readini %gamefile pr $+ %turn total <= 16) { hitme } | halt }
n61=ebj {
n62=  .timer2000 off | .timer2001 off | writeini %gamefile game players none | writeini %gamefile game nop 0 | writeini %gamefile game takebets no | writeini %gamefile game type off | remini %gamefile sites | notice $readini %gamefile game channel Blackjack table has closed... | writeini %gamefile game channel N/A | %i = 1
n63=  :clear | remini %gamefile pr $+ [ %i ] | inc %i 1 | if (%i < 11) { goto clear } | unset %i %betplayers %sites %deck | /.load -a $mircdir $+ aliases.ini | halt
n64=}
n65=d_credit {
n66=  %turn = 1 | %nop = $readini %gamefile game nop | %dealer = $readini %gamefile pr1 total | inc %dealer 1
n67=  if (%dealer = blackjack) { msg $readini %gamefile game channel Dealer has BlackJack }
n68=  elseif (%dealer <= 21) { msg $readini %gamefile game channel Dealer pays on %dealer }
n69=  elseif (%dealer = 22) { msg $readini %gamefile game channel Dealer has 21 }
n70=  elseif (%dealer >= 23) { msg $readini %gamefile game channel Dealer has busted }
n71=  :next | inc %turn 1 | if (%turn > $readini %gamefile game nop) { goto end }
n72=  if ($readini %gamefile pr $+ %turn total = blackjack) { goto bj | goto next }
n73=  if ($readini %gamefile pr $+ %turn total = fivecard) { goto credit | goto next }
n74=  if ($readini %gamefile pr $+ %turn total = busted) { goto debit | goto next }
n75=  if (%dealer < 22) {
n76=    if ($readini %gamefile pr $+ %turn total = %dealer) { %pushed = %pushed $readini %gamefile pr $+ %turn nick }
n77=    if ($readini %gamefile pr $+ %turn total < %dealer) { goto debit }
n78=    if ($readini %gamefile pr $+ %turn total > %dealer) { goto credit }
n79=  }
n80=  elseif (%dealer = 22) { goto debit }
n81=  elseif (%dealer >= 23) { goto credit }
n82=  goto next
n83=  :bj
n84=  %winners = %winners $readini %gamefile pr $+ %turn nick
n85=  goto next
n86=  :credit
n87=  %winners = %winners $readini %gamefile pr $+ %turn nick
n88=  goto next
n89=  :debit
n90=  %losers = %losers $readini %gamefile pr $+ %turn nick
n91=  goto next
n92=  :end
n93=  if (%winners != $null) { msg $readini %gamefile game channel %winners win! }
n94=  if (%losers != $null) { msg $readini %gamefile game channel %losers lost! }
n95=  if (%pushed != $null) { msg $readini %gamefile game channel %pushed pushed! }
n96=  unset %turn %winners %losers %pushed %credit %dealer %sites | ebj
n97=}
n98=/dbj {
n99=  if ($readini %gamefile game type != BlackJack) { halt } |  if ($readini %gamefile game nop < 2) { ebj }
n100=  writeini %gamefile game takebets no | /shuffle | set %i 1 | set %card 1 | %deck = $readini %gamefile deck deck
n101=  %nop = $readini %gamefile game nop
n102=  :pnc | unset %pickr %pick %suit %hand %rank
n103=  %cpos = $readini %gamefile deck cpos | inc %cpos 1 | writeini %gamefile deck cpos %cpos
n104=  %cleft = $readini %gamefile deck cleft | dec %cleft 1 | writeini %gamefile deck cleft %cleft
n105=  %pick = $asc($mid(%cpos,1,%deck)) - 38 | getface %pick
n106=  if (%card = 2) {
n107=    %hand = $readini %gamefile pr $+ %i vhand | %hand = %hand %pick
n108=    %rank = $readini %gamefile pr $+ %i nhand | %rank = %rank %pickr $+ x
n109=    rank %rank | writeini %gamefile pr $+ %i total %value | writeini %gamefile pr $+ %i vhand %hand | writeini %gamefile pr $+ %i nhand %rank
n110=    msg $readini %gamefile game channel $readini %gamefile pr $+ %i nick ╗ hand is $readini %gamefile pr $+ %i vhand ranked at $readini %gamefile pr $+ %i total
n111=    if (%value = 21) { msg $readini %gamefile game channel $readini %gamefile pr $+ %i nick has BlackJack !!! | writeini %gamefile pr $+ %i total Blackjack }
n112=  }
n113=  else { writeini %gamefile pr $+ %i vhand %pick | writeini %gamefile pr $+ %i nhand %pickr $+ x }
n114=  inc %i 1 | if (%nop >= %i) { goto pnc } | set %i 1 | inc %card 1 | if (%card <= 2) { goto pnc }
n115=  if ($readini %gamefile pr1 total = 21) { msg $readini %gamefile game channel Dealer has BlackJack | d_credit }
n116=  unset %rank* %pick* %suit %hand %cleft %i %cpos %nop %card* %noc %value | set %turn 1 | nextplayer
n117=}
n118=/cstats {
n119=  init_scan_vars
n120=  set %ppl 0
n121=  set %scn #$$1
n122=  who #$$1
n123=}
n124=/showclone {
n125=  :end
n126=  report
n127=}
n128=/init_scan_vars {
n129=  set %op 0 | set %opn "" | set %nop 0 | set %nopn ""
n130=  set %appl 0  | set %appln "" | set %vppl 0 | set %vppln ""
n131=  set %ircop 0 | set %ircopn ""
n132=  return 1
n133=}
n134=/clear_chan_vars {
n135=  unset %op | unset %opn | unset %nop  | unset %nopn
n136=  unset %appl | unset %appln | unset %vppl | unset %vppln
n137=  unset %ircop  | unset %ircopn | unset %scn
n138=  return 1
n139=}
n140=/report {
n141=  if %active = $null set %active echo 5 %scn
n142=  %active %scn channel stats
n143=  %active There are %ppl people
n144=  if (%op >= 6) { %active There are %op ops }
n145=  elseif (%op != 0) { %active There are %op ops }
n146=  elseif (%op == 0) { %active There are no ops }
n147=  if (%nop >= 6) { %active There are %nop users }
n148=  elseif (%nop != 0) { %active There are %nop users }
n149=  elseif (%nop == 0) { %active Only ops in %scn $+ , LETS PARTY!!! }
n150=  if (%vppl != 0) { %active There are %vppl voiced users }
n151=  if (%appl != 0) { %active There are %appl people away | %active The away people are %appln }
n152=  if (%ircop != 0) { %active There are %ircop IRCops | %active The IRCops are %ircopn } | else { %active There are no IRCops }
n153=  clear_chan_vars
n154=  echo Channel variables cleared...
n155=  .timer 1 2 .load -a $mircdir $+ aliases.ini
n156=}
n157=/f10 {
n158=  /titlebar áááF2 = Close DCC Chats á F3 = Close Sends á F4 = Close Gets á F5 = View Split Servers
n159=  /.timer 1 10 /titlebar á
n160=  /.timer 1 11 /titlebar ááááááááF6 = Load Clone á F7 = Ignore Everything Except Channel á F8 = Remove F7
n161=  /.timer 1 21 /titlebar á
n162=  /.timer 1 22 /titlebar áááááááF9 = Introduction To IRC á F10 = You're Reading It! á F11 = IRC Numeric Codes
n163=  /.timer 1 32 /titlebar -=[ Running The LΦΘcher Script ]=- $time -=[ $day $date ]=-
n164=  /.timer 1 2 /.load -a aliases.ini
n165=}
n166=/cf1 {
n167=  /titlebar -=[ Running The LΦΘcher Script ]=- $time -=[ $day $date ]=-
n168=}